home *** CD-ROM | disk | FTP | other *** search
/ Aminet 43 / Aminet 43 (2001)(GTI - Schatztruhe)[!][Jun 2001].iso / Aminet / demo / mag / hLA-AP15.lha / hLA-AP15 / Install-AP15 < prev    next >
Text File  |  2001-03-15  |  3KB  |  107 lines
  1. ; $VER: installer Amiga Positive Mag by Wincle/VRT v1.0 (14.3 2000)
  2.  
  3. (
  4.  
  5. (set @pretend 0)
  6.  
  7. (procedure testcomp
  8.   (set procesor (database "cpu"))
  9. (set frek (database "vblank"))
  10. (set chip (database "graphics-mem"))
  11. (set total (database "total-mem"))
  12. )
  13.  
  14. (procedure getcurrentversion name
  15.   ( (set vernum (getversion name ))
  16.     (set ver (/ vernum 65536))
  17.     (set rev (- vernum (* ver 65536)))
  18.   )
  19. )
  20.  
  21.  
  22. (procedure askbonus
  23. (
  24.  
  25. (testcomp)
  26.  
  27.     (set bonus
  28.         (askchoice
  29.             (prompt "\n Procesor:  " procesor "        VBlank:   " frek "    \n Chip RAM:  " chip "     Fast RAM:  " (- total chip) "\n\nDo you wanna install the Bonus files ?\n")
  30.  
  31.             (help (cat "\n\n  Fuck the best we are the rest\n\n")
  32.             )
  33.             (choices "No, I do" "Yes!, I do")
  34.             (default 0)
  35.         )
  36.      )
  37. )
  38. )
  39.  
  40.  
  41.  
  42. (message "Amiga Positive Mag \n\nIssue #15  \n\nInstaller\n install and read\n\n© Horizontal  Lamerz 2001")
  43.  
  44. (if (exists "envarc:amigapositive/")=0 (makedir "envarc:AmigaPositive"))
  45.  
  46.     (testcomp)
  47.     (askbonus)
  48.  
  49.  (
  50.    (set @default-dest
  51.     (askdir (prompt "Select the directory to install Amiga Positive")
  52.             (help @askdir-help)
  53.             (default @default-dest)
  54.     )
  55.    )
  56.     (makedir (tackon @default-dest "hLA-AP15") (infos) )
  57.     (set @default-dest (tackon @default-dest "hLA-AP15"))
  58.     (copyfiles (source "AP15") (dest @default-dest))
  59.     (copyfiles (source "ap15.exe") (dest @default-dest))
  60.     (copyfiles (source "data.pk") (dest @default-dest))
  61.     (copyfiles (source "ap-prefs") (dest @default-dest))
  62.  
  63.  
  64.     (copyfiles (source "fonts/")
  65.                (prompt "\nCopying fonts  fonts:...")
  66.                (help ":)")
  67.                (dest "fonts:")
  68.                (ALL)
  69.                (confirm 1)
  70.                ( delopts "askuser" )
  71.                ( safe )
  72.     )
  73.  
  74.  
  75.   (copylib
  76.       (prompt "\nCopying dbplayer.library to LIBS:...")
  77.       (help @copylib-help)
  78.       (source "libs/dbplayer.library")
  79.       (dest "LIBS:")
  80.       (confirm 1)
  81.       (optional "nofail")
  82.       (delopts "askuser")
  83.     )
  84.  
  85.     (makedir (tackon @default-dest "pix"))
  86.     (copyfiles  (source "pix/")
  87.                 (dest (tackon @default-dest "pix"))
  88.                 (ALL)
  89.      )
  90.  
  91.     (if bonus  ((makedir (tackon @default-dest "bonus") (infos) )
  92.                  (copyfiles (source "bonus/") 
  93.                             (dest (tackon @default-dest "bonus"))
  94.                             (ALL)
  95.                  )
  96.                )
  97.     )
  98.  
  99.     (copyfiles (source "icons/ap-prefs.info") (dest @default-dest) (newname "ap-prefs.info"))
  100.     (copyfiles (source "icons/ap15.info") (dest @default-dest) (newname "ap15.info"))
  101.     (copyfiles (source "icons/bonus.info") (dest @default-dest) (newname "Bonus.info"))
  102.  
  103.  
  104. (exit "\n\n\n?????????????" (quiet))
  105.  
  106. ))
  107.